Preparativos
library(sf)
library(dplyr)
library(leaflet)
library(ggplot2)
library(plotly)
library(DT)
felinos <-
st_read(
"C:/Users/gf0604-1/datos geoespaciales/clase 08-06-22/felinos.csv",
options = c(
"X_POSSIBLE_NAMES=decimalLongitude", # columna de longitud decimal
"Y_POSSIBLE_NAMES=decimalLatitude" # columna de latitud decimal
),
quiet = TRUE
)
Mapa
leaflet() %>%
addTiles() %>% # capa de base
addCircleMarkers( # capa de registros de presencia (puntos)
data = felinos,
stroke = F,
radius = 4,
fillColor = "blue",
fillOpacity = 1
)